home *** CD-ROM | disk | FTP | other *** search
/ Geek Games #12 / GEGA012.iso / Jogos de Azar / 599.swf / scripts / frame_205 / DoAction.as
Text File  |  2006-01-17  |  949b  |  35 lines
  1. if("0" < i)
  2. {
  3.    set("/cardb" add (i + "1") add ":variable",hd.substr(i * "3" + "1","2"));
  4.    x = getProperty("cardb" add (i + "1"), _X);
  5.    y = getProperty("cardb" add (i + "1"), _Y);
  6.    setProperty("/cardb" add (i + "1"), _X, x + "180" - i * "8");
  7.    setProperty("/cardb" add (i + "1"), _Y, y + ("7" - i) * "2");
  8.    tellTarget("/cardb" add (i + "1"))
  9.    {
  10.       gotoAndStop(variable);
  11.    }
  12.    setProperty("/br", _Y, getProperty("/br", _Y) - "2");
  13.    setProperty("/br", _X, getProperty("/br", _X) - "2");
  14.    q = "0";
  15.    while(q < i)
  16.    {
  17.       y = getProperty("cardb" add (q + "1"), _Y);
  18.       setProperty("/cardb" add (q + "1"), _Y, y - "2");
  19.       x = getProperty("cardb" add (q + "1"), _X);
  20.       setProperty("/cardb" add (q + "1"), _X, x - "2");
  21.       q += "1";
  22.    }
  23. }
  24. else
  25. {
  26.    firstTime = "1";
  27.    descard = "";
  28.    list = "";
  29.    listb = "01234";
  30.    credit += win;
  31.    win = "0";
  32.    gotoAndPlay(144);
  33. }
  34. stop();
  35.